home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 November / 64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64 / pascal 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  278b  |  14 lines
  1. 10 print"[147]":rem pascal-koeffizienten
  2. 20 print"pascal-koeffizienten"
  3. 30 print"********************"
  4. 40 dimk(200):k(100)=1
  5. 50 input" exponent des binoms";n
  6. 60 fora=1ton
  7. 70 forr=100-ato100+astep2
  8. 80 k(r)=k(r-1)+k(r+1)
  9. 90 nextr:nexta
  10. 100 print"die koeffizienten sind:"
  11. 110 fori=100-nto100+nstep2
  12. 120 printk(i);
  13. 130 nexti
  14.